home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / tugi / user4.tug < prev   
Text File  |  1991-10-18  |  4KB  |  173 lines
  1. TUGi_macro(v1.0)
  2. sample_01()
  3. {
  4.  
  5.     /*********************/
  6.     /**  ドラスピさん   **/
  7.     /*********************/
  8.  
  9.     Screen(3);
  10.     cls(1);
  11.     paletteset();
  12.     wind_init();
  13.     wrtstr(
  14.         " "
  15.         "  ドラスピさんの作品です",
  16.         " "
  17.         "  この画像データを表示しますか？",
  18.         " "
  19.     );
  20.     wind_close();
  21.  
  22.     Question(
  23.         Graph_View(
  24.             Q:\DATA\DRASPI\DRA_1.TIF
  25.             Q:\DATA\DRASPI\DRA_2.TIF
  26.             Q:\DATA\DRASPI\DRA_3.TIF
  27.             Q:\DATA\DRASPI\DRA_4.TIF
  28.             Q:\DATA\DRASPI\DRA_5.TIF
  29.             Q:\DATA\DRASPI\DRA_6.TIF
  30.             Q:\DATA\DRASPI\DRA_7.TIF
  31.         );
  32.     );
  33.  
  34.  
  35.     /****************************************/
  36.     /**  ＥＡＳＴさん                      **/
  37.     /****************************************/
  38.  
  39.     Screen(3);
  40.     cls(1);
  41.     paletteset();
  42.     wind_init();
  43.     wrtstr(
  44.         "本ＣＤ収録の、レイトレーシングツール",
  45.         "（で、いいのかな？(^^;）",
  46.         "ＥＡＳＴ－ＲＡＹのサンプルデータです。"
  47.         "               ３３枚あります。"
  48.         " "
  49.         "  この画像データを表示しますか？",
  50.         " "
  51.     );
  52.     wind_close();
  53.  
  54.     Question(
  55.         Graph_View(
  56.             Q:\EASTRAY\SAMPLE\TEST256_.TIF
  57.             Q:\EASTRAY\SAMPLE\E_MARK.TIF
  58.             Q:\EASTRAY\SAMPLE\STONE1_.TIF
  59.             Q:\EASTRAY\SAMPLE\HAMON2.TIF
  60.             Q:\EASTRAY\SAMPLE\DEKIAGA\FR.TIF
  61.             Q:\EASTRAY\SAMPLE\DEKIAGA\BALL3.TIF
  62.             Q:\EASTRAY\SAMPLE\DEKIAGA\COLOR0.TIF
  63.             Q:\EASTRAY\SAMPLE\DEKIAGA\HAMON.TIF
  64.             Q:\EASTRAY\SAMPLE\DEKIAGA\MARK.TIF
  65.             Q:\EASTRAY\SAMPLE\DEKIAGA\CUBE.TIF
  66.             Q:\EASTRAY\DEMO\BALL2.TIF
  67.             Q:\EASTRAY\DEMO\BALL4.TIF
  68.             Q:\EASTRAY\DEMO\COLOR0.TIF
  69.             Q:\EASTRAY\DEMO\COLOR1.TIF
  70.             Q:\EASTRAY\DEMO\COLOR2.TIF
  71.             Q:\EASTRAY\DEMO\COLOR3.TIF
  72.             Q:\EASTRAY\DEMO\COLOR6.TIF
  73.             Q:\EASTRAY\DEMO\DATA3.TIF
  74.             Q:\EASTRAY\DEMO\DATA5_.TIF
  75.             Q:\EASTRAY\DEMO\PLANET_C.GIF
  76.             Q:\EASTRAY\DEMO\FR_C.GIF
  77.             Q:\EASTRAY\DEMO\FPICS.GIF
  78.             Q:\EASTRAY\DEMO\FPICS2.GIF
  79.             Q:\EASTRAY\DEMO\MAP0.TIF
  80.             Q:\EASTRAY\DEMO\MAP1.TIF
  81.             Q:\EASTRAY\DEMO\MAP21.TIF
  82.             Q:\EASTRAY\DEMO\BALL3_2.GIF
  83.             Q:\EASTRAY\DEMO\TOUMEI_C.GIF
  84.             Q:\EASTRAY\DEMO\SAM10.TIF
  85.             Q:\EASTRAY\DEMO\SAM11.TIF
  86.             Q:\EASTRAY\DEMO\SAM13.TIF
  87.             Q:\EASTRAY\DEMO\SAM9.TIF
  88.             Q:\EASTRAY\DEMO\TEST10.TIF
  89.         );
  90.     );
  91.  
  92.  
  93.     /***************************************/
  94.     /** LC?なにこれ(^^; （ちょ）          **/
  95.     /** Light Cycle の略ぢゃ(^_^;)（魚）  **/
  96.     /** あ、なるほど(^^;（ちょ）　　　　  **/
  97.     /***************************************/
  98.  
  99.     Screen(3);
  100.     cls(1);
  101.     paletteset();
  102.     wind_init();
  103.     wrtstr(
  104.         " "
  105.         "   Ｌight Ｃycle の収録画像です",
  106.         " "
  107.         "   この画像データを表示しますか？",
  108.         " "
  109.     );
  110.     wind_close();
  111.  
  112.     Question(
  113.         Graph_View(
  114.             Q:\LC\GAMEN.TIF
  115.             Q:\LC\GAMENX.TIF
  116.             Q:\LC\HLP.TIF
  117.         );
  118.     );
  119.  
  120.     /***************************************/
  121.     /**  Oh!-TOWNS                        **/
  122.     /***************************************/
  123.  
  124.     /* この画像をＴＵＧｉで見る場合は、画面のアスペクト比を */
  125.     /* ワイド指定にして見たほうがいいよん♪（魚）           */
  126.     /* ねね、あすぺくとって何？(^^;(^^;（ちょ）　　　　　　 */
  127.  
  128.     Screen(3);
  129.     cls(1);
  130.     paletteset();
  131.     wind_init();
  132.     wrtstr(
  133.         " "
  134.         "  Ｏｈ！FMＴＯＷＮＳの表紙データです。",
  135.         "  "
  136.         " "
  137.         "          この画像データを表示しますか？",
  138.         " "
  139.     );
  140.     wind_close();
  141.  
  142.     Question(
  143.         Graph_View(
  144.             Q:\OH_TOWNS\HYOUSHI\F03.TIF
  145.             Q:\OH_TOWNS\HYOUSHI\F01.TIF
  146.             Q:\OH_TOWNS\HYOUSHI\F02.TIF
  147.             Q:\OH_TOWNS\HYOUSHI\F10.TIF
  148.             Q:\OH_TOWNS\HYOUSHI\F11.TIF
  149.             Q:\OH_TOWNS\HYOUSHI\F12.TIF
  150.         );
  151.     );
  152.  
  153.  
  154.     /****************/
  155.     /**  お終いっ  **/
  156.     /****************/
  157.  
  158.     Screen(3);
  159.     cls(1);
  160.     paletteset();
  161.     wind_init();
  162.     wrtstr(
  163.         " ",
  164.         " ",
  165.         "   他のデータも見てみますか？"
  166.     );
  167.     wind_close();
  168.     Question(
  169.         MAIN2SB2.TUG
  170.     );
  171.     END.TUG
  172. }
  173.